home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
eulisp
/
comp0_89.lha
/
Feel
/
Boot
/
Compiler
/
#xxx#
next >
Wrap
Text File
|
1993-02-03
|
23KB
|
1,237 lines
$<make-env 0>
$<push-static 0>
$<set-global (%%-me-local--%% . abcd)>
$<push-label #<lab: 0>>
$<push-global (list-fns . mk-finder)>
$<nth-ref 0>
$<apply-bvf 0>
$<i-label #<lab: 0>>
$<set-global (%%-me-local--%% . t1)>
$<push-fixnum 1>
$<set-global (%%-me-local--%% . xx-setter)>
$<push-label #<lab: 1>>
$<push-special 0>
$<alloc-closure 2>
$<set-global (%%-me-local--%% . xx-setter-setter)>
$<push-static (%%-me-local--%% . xx-setter)>
$<push-static (%%-me-local--%% . xx-setter-setter)>
$<set-slot 4>
$<drop 1>
$<push-static (%%-me-local--%% . xx-setter-setter)>
$<push-static (%%-me-local--%% . xx-setter-setter)>
$<set-slot 4>
$<drop 1>
$<push-special 0>
$<set-global (%%-me-local--%% . xx)>
$<push-special 0>
$<set-global (%%-me-local--%% . yy)>
$<push-special 0>
$<set-global (%%-me-local--%% . zz)>
$<push-label #<lab: 2>>
$<nth-ref 2>
$<alloc-closure 0>
$<set-global (%%-me-local--%% . reset)>
$<push-label #<lab: 3>>
$<nth-ref 2>
$<alloc-closure 1>
$<set-global (%%-me-local--%% . foo)>
$<push-label #<lab: 9>>
$<nth-ref 2>
$<alloc-closure 1>
$<set-global (%%-me-local--%% . rewrite-inline-lambda)>
$<push-label #<lab: 21>>
$<nth-ref 2>
$<alloc-closure 1>
$<set-global (%%-me-local--%% . test2)>
$<push-label #<lab: 27>>
$<nth-ref 2>
$<alloc-closure 1>
$<set-global (%%-me-local--%% . i)>
$<push-label #<lab: 28>>
$<nth-ref 2>
$<alloc-closure 1>
$<set-global (%%-me-local--%% . d)>
$<push-label #<lab: 29>>
$<nth-ref 2>
$<alloc-closure 1>
$<set-global (%%-me-local--%% . a)>
$<push-label #<lab: 30>>
$<nth-ref 2>
$<alloc-closure 2>
$<set-global (%%-me-local--%% . acons)>
$<push-label #<lab: 31>>
$<nth-ref 2>
$<alloc-closure 1>
$<set-global (%%-me-local--%% . test-if)>
$<push-label #<lab: 34>>
$<nth-ref 2>
$<alloc-closure 1>
$<set-global (%%-me-local--%% . test-not-if)>
$<push-label #<lab: 38>>
$<nth-ref 2>
$<alloc-closure 1>
$<set-global (%%-me-local--%% . l)>
$<push-label #<lab: 39>>
$<nth-ref 2>
$<alloc-closure 1>
$<set-global (%%-me-local--%% . fact)>
$<push-label #<lab: 43>>
$<nth-ref 2>
$<alloc-closure 1>
$<set-global (%%-me-local--%% . test)>
$<push-label #<lab: 47>>
$<nth-ref 2>
$<alloc-closure 1>
$<set-global (%%-me-local--%% . mk-conser)>
$<push-label #<lab: 49>>
$<nth-ref 2>
$<alloc-closure 1>
$<set-global (%%-me-local--%% . g-test)>
$<push-label #<lab: 50>>
$<nth-ref 2>
$<alloc-closure 1>
$<set-global (%%-me-local--%% . gc-test)>
$<push-label #<lab: 51>>
$<nth-ref 2>
$<alloc-closure 1>
$<set-global (%%-me-local--%% . gc-test2)>
$<push-label #<lab: 55>>
$<nth-ref 2>
$<alloc-closure 1>
$<set-global (%%-me-local--%% . mk-counter-1)>
$<push-label #<lab: 57>>
$<nth-ref 2>
$<alloc-closure -1>
$<set-global (%%-me-local--%% . nary-0)>
$<push-label #<lab: 58>>
$<nth-ref 2>
$<alloc-closure -2>
$<set-global (%%-me-local--%% . nary-1)>
$<push-special 0>
$<set-global (%%-me-local--%% . it)>
$<push-label #<lab: 59>>
$<nth-ref 2>
$<alloc-closure 1>
$<set-global (%%-me-local--%% . ack)>
$<push-label #<lab: 82>>
$<nth-ref 2>
$<alloc-closure 1>
$<set-global (%%-me-local--%% . set-it)>
$<push-label #<lab: 83>>
$<nth-ref 2>
$<alloc-closure 1>
$<set-global (%%-me-local--%% . set-test)>
$<push-label #<lab: 84>>
$<nth-ref 2>
$<alloc-closure 2>
$<set-global (%%-me-local--%% . set-test-setter)>
$<push-label #<lab: 85>>
$<push-label #<lab: 86>>
$<push-global (init . setter)>
$<push-global (init . setter)>
$<nth-ref 1>
$<apply-any 1>
$<i-label #<lab: 86>>
$<push-static (%%-me-local--%% . set-test)>
$<push-static (%%-me-local--%% . set-test-setter)>
$<nth-ref 2>
$<apply-any 2>
$<i-label #<lab: 85>>
$<drop 1>
$<push-label #<lab: 87>>
$<nth-ref 2>
$<alloc-closure 2>
$<set-global (%%-me-local--%% . bar)>
$<push-label #<lab: 89>>
$<nth-ref 2>
$<alloc-closure 1>
$<set-global (%%-me-local--%% . ffib)>
$<push-label #<lab: 94>>
$<nth-ref 2>
$<alloc-closure 2>
$<set-global (%%-me-local--%% . a-mapcar)>
$<push-label #<lab: 99>>
$<nth-ref 2>
$<alloc-closure 3>
$<set-global (%%-me-local--%% . afold)>
$<push-label #<lab: 103>>
$<push-global (list-fns . mk-finder)>
$<nth-ref 0>
$<apply-bvf 0>
$<i-label #<lab: 103>>
$<set-global (%%-me-local--%% . x)>
$<push-label #<lab: 104>>
$<push-global (list-fns . mk-finder)>
$<nth-ref 0>
$<apply-bvf 0>
$<i-label #<lab: 104>>
$<set-global (%%-me-local--%% . y)>
$<push-label #<lab: 105>>
$<nth-ref 2>
$<alloc-closure 1>
$<set-global (%%-me-local--%% . xxx)>
$<push-label #<lab: 106>>
$<nth-ref 2>
$<alloc-closure 2>
$<set-global (%%-me-local--%% . ipow)>
$<push-label #<lab: 122>>
$<nth-ref 2>
$<alloc-closure 2>
$<set-global (%%-me-local--%% . messify)>
$<push-label #<lab: 130>>
$<nth-ref 2>
$<alloc-closure 1>
$<set-global (%%-me-local--%% . rev)>
$<push-label #<lab: 137>>
$<nth-ref 2>
$<alloc-closure 1>
$<set-global (%%-me-local--%% . swap)>
$<push-label #<lab: 143>>
$<nth-ref 2>
$<alloc-closure 2>
$<set-global (%%-me-local--%% . myappend-1)>
$<push-label #<lab: 149>>
$<nth-ref 2>
$<alloc-closure 2>
$<set-global (%%-me-local--%% . myappend)>
$<push-label #<lab: 156>>
$<nth-ref 2>
$<alloc-closure 2>
$<set-global (%%-me-local--%% . repeat)>
$<push-label #<lab: 161>>
$<nth-ref 2>
$<alloc-closure 1>
$<set-global (%%-me-local--%% . time)>
$<push-label #<lab: 163>>
$<nth-ref 2>
$<alloc-closure 0>
$<set-global (%%-me-local--%% . testxx)>
$<drop 1>
$<push-special 1>
$<return>
$<i-label #<lab: 163>>
$<push-global (streams . open)>
$<push-static 6>
$<push-static 7>
$<push-special 0>
$<i-cons>
$<apply-cfn -2>
$<push-global (streams . read)>
$<nth-ref 1>
$<apply-cfn 1>
$<drop 1>
$<push-global (streams . close)>
$<nth-ref 2>
$<apply-cfn 1>
$<drop 1>
$<drop 6>
$<push-static (%%-me-local--%% . testxx)>
$<nth-ref 0>
$<set-nth 2>
$<drop 1>
$<push-special 0>
$<branch #<lab: 163>>
$<i-label #<lab: 161>>
$<push-global (others . cpu-time)>
$<apply-cfn 0>
$<push-label #<lab: 162>>
$<nth-ref 4>
$<nth-ref 0>
$<apply-any 0>
$<i-label #<lab: 162>>
$<drop 1>
$<push-global (arith . -)>
$<push-global (others . cpu-time)>
$<apply-cfn 0>
$<nth-ref 2>
$<push-special 0>
$<i-cons>
$<i-slide-stack 6 2>
$<apply-cfn -2>
$<return>
$<i-label #<lab: 156>>
$<push-label #<lab: 159>>
$<push-global (init . =)>
$<nth-ref 4>
$<push-fixnum 0>
$<nth-ref 2>
$<apply-any 2>
$<i-label #<lab: 159>>
$<branch-nil #<lab: 157>>
$<drop 3>
$<push-special 0>
$<return>
$<dead-code>
$<i-label #<lab: 157>>
$<push-label #<lab: 160>>
$<nth-ref 4>
$<nth-ref 0>
$<apply-any 0>
$<i-label #<lab: 160>>
$<drop 1>
$<push-static (%%-me-local--%% . repeat)>
$<nth-ref 3>
$<push-global (arith . -)>
$<nth-ref 4>
$<push-fixnum 1>
$<push-special 0>
$<i-cons>
$<apply-cfn -2>
$<nth-ref 2>
$<i-slide-stack 9 3>
$<nth-ref 0>
$<set-nth 4>
$<drop 1>
$<push-special 0>
$<branch #<lab: 156>>
$<i-label #<lab: 149>>
$<nth-ref 2>
$<nullp>
$<branch-nil #<lab: 150>>
$<drop 1>
$<i-slide-stack 2 1>
$<return>
$<dead-code>
$<i-label #<lab: 150>>
$<nth-ref 2>
$<slot-ref 0>
$<push-special 0>
$<i-cons>
$<push-label #<lab: 155>>
$<push-special 0>
$<nth-ref 6>
$<slot-ref 1>
$<nth-ref 4>
$<push-special 0>
$<branch #<lab: 152>>
$<i-label #<lab: 155>>
$<nth-ref 3>
$<set-slot 1>
$<drop 1>
$<i-slide-stack 4 1>
$<return>
$<dead-code>
$<i-label #<lab: 152>>
$<nth-ref 2>
$<nullp>
$<branch-nil #<lab: 153>>
$<drop 1>
$<i-slide-stack 2 1>
$<return>
$<dead-code>
$<i-label #<lab: 153>>
$<nth-ref 2>
$<slot-ref 0>
$<push-special 0>
$<i-cons>
$<nth-ref 2>
$<nth-ref 1>
$<set-slot 1>
$<drop 1>
$<nth-ref 3>
$<slot-ref 1>
$<i-slide-stack 5 2>
$<swap>
$<push-special 0>
$<branch #<lab: 152>>
$<i-label #<lab: 143>>
$<nth-ref 2>
$<nullp>
$<branch-nil #<lab: 144>>
$<drop 1>
$<i-slide-stack 2 1>
$<return>
$<dead-code>
$<i-label #<lab: 144>>
$<nth-ref 2>
$<slot-ref 0>
$<push-label #<lab: 148>>
$<push-static (%%-me-local--%% . myappend-1)>
$<nth-ref 6>
$<slot-ref 1>
$<nth-ref 6>
$<push-special 0>
$<branch #<lab: 143>>
$<i-label #<lab: 148>>
$<i-slide-stack 5 2>
$<i-cons>
$<return>
$<i-label #<lab: 137>>
$<nth-ref 1>
$<slot-ref 1>
$<slot-ref 0>
$<nth-ref 2>
$<slot-ref 0>
$<nth-ref 3>
$<slot-ref 1>
$<slot-ref 1>
$<i-cons>
$<i-slide-stack 4 2>
$<i-cons>
$<return>
$<i-label #<lab: 130>>
$<nth-ref 1>
$<nullp>
$<branch-nil #<lab: 131>>
$<drop 1>
$<return>
$<dead-code>
$<i-label #<lab: 131>>
$<nth-ref 1>
$<slot-ref 1>
$<nullp>
$<branch-nil #<lab: 133>>
$<drop 1>
$<return>
$<dead-code>
$<i-label #<lab: 133>>
$<nth-ref 1>
$<slot-ref 1>
$<slot-ref 1>
$<nullp>
$<branch-nil #<lab: 135>>
$<drop 1>
$<push-static (%%-me-local--%% . swap)>
$<nth-ref 0>
$<set-nth 3>
$<drop 1>
$<push-special 0>
$<branch #<lab: 137>>
$<i-label #<lab: 135>>
$<push-label #<lab: 140>>
$<push-static (%%-me-local--%% . rev)>
$<nth-ref 4>
$<slot-ref 1>
$<push-special 0>
$<branch #<lab: 130>>
$<i-label #<lab: 140>>
$<nth-ref 0>
$<slot-ref 0>
$<push-label #<lab: 141>>
$<push-static (%%-me-local--%% . rev)>
$<nth-ref 6>
$<slot-ref 0>
$<push-label #<lab: 142>>
$<push-static (%%-me-local--%% . rev)>
$<nth-ref 8>
$<slot-ref 1>
$<push-special 0>
$<branch #<lab: 130>>
$<i-label #<lab: 142>>
$<i-cons>
$<push-special 0>
$<branch #<lab: 130>>
$<i-label #<lab: 141>>
$<i-slide-stack 5 2>
$<i-cons>
$<return>
$<i-label #<lab: 122>>
$<make-env 1>
$<nth-ref 1>
$<set-env 0 0>
$<nth-ref 2>
$<push-special 0>
$<nth-ref 2>
$<i-slide-stack 6 3>
$<branch #<lab: 123>>
$<i-label #<lab: 123>>
$<nth-ref 2>
$<nullp>
$<branch-nil #<lab: 124>>
$<drop 1>
$<i-slide-stack 2 1>
$<return>
$<dead-code>
$<i-label #<lab: 124>>
$<nth-ref 2>
$<slot-ref 1>
$<push-label #<lab: 128>>
$<push-global (boot . mapcar)>
$<push-label #<lab: 129>>
$<nth-ref 6>
$<alloc-closure 1>
$<nth-ref 7>
$<slot-ref 0>
$<nth-ref 2>
$<apply-bvf 2>
$<i-label #<lab: 128>>
$<nth-ref 3>
$<i-cons>
$<nth-ref 2>
$<i-slide-stack 6 3>
$<branch #<lab: 123>>
$<i-label #<lab: 129>>
$<nth-ref 1>
$<nth-ref 1>
$<env-ref 0 0>
$<i-slide-stack 4 2>
$<i-cons>
$<return>
$<i-label #<lab: 106>>
$<nth-ref 2>
$<set-nth 3>
$<drop 1>
$<push-fixnum 1>
$<push-special 0>
$<branch #<lab: 107>>
$<i-label #<lab: 114>>
$<push-label #<lab: 119>>
$<push-global (numbers . evenp)>
$<nth-ref 5>
$<nth-ref 1>
$<apply-bvf 1>
$<i-label #<lab: 119>>
$<branch-nil #<lab: 117>>
$<push-global (arith . *)>
$<nth-ref 4>
$<nth-ref 0>
$<push-special 0>
$<apply-cfn -3>
$<push-global (arith . /)>
$<nth-ref 7>
$<push-fixnum 2>
$<push-special 0>
$<apply-cfn -3>
$<nth-ref 9>
$<i-slide-stack 13 3>
$<push-special 0>
$<branch #<lab: 114>>
$<i-label #<lab: 117>>
$<push-global (arith . *)>
$<nth-ref 4>
$<nth-ref 0>
$<push-special 0>
$<apply-cfn -3>
$<push-global (arith . /)>
$<nth-ref 7>
$<push-fixnum 2>
$<push-special 0>
$<apply-cfn -3>
$<push-global (arith . *)>
$<nth-ref 6>
$<nth-ref 11>
$<push-special 0>
$<apply-cfn -3>
$<i-slide-stack 16 3>
$<push-special 0>
$<branch #<lab: 107>>
$<i-label #<lab: 107>>
$<push-label #<lab: 110>>
$<push-global (numbers . zerop)>
$<nth-ref 5>
$<nth-ref 1>
$<apply-any 1>
$<i-label #<lab: 110>>
$<branch-nil #<lab: 108>>
$<drop 1>
$<i-slide-stack 3 1>
$<return>
$<dead-code>
$<i-label #<lab: 108>>
$<push-label #<lab: 113>>
$<push-global (numbers . evenp)>
$<nth-ref 5>
$<nth-ref 1>
$<apply-bvf 1>
$<i-label #<lab: 113>>
$<branch-nil #<lab: 111>>
$<push-global (arith . *)>
$<nth-ref 4>
$<nth-ref 0>
$<push-special 0>
$<apply-cfn -3>
$<push-global (arith . /)>
$<nth-ref 7>
$<push-fixnum 2>
$<push-special 0>
$<apply-cfn -3>
$<nth-ref 9>
$<i-slide-stack 13 3>
$<push-special 0>
$<branch #<lab: 114>>
$<i-label #<lab: 111>>
$<push-global (arith . *)>
$<nth-ref 4>
$<nth-ref 0>
$<push-special 0>
$<apply-cfn -3>
$<push-global (arith . /)>
$<nth-ref 7>
$<push-fixnum 2>
$<push-special 0>
$<apply-cfn -3>
$<push-global (arith . *)>
$<nth-ref 6>
$<nth-ref 11>
$<push-special 0>
$<apply-cfn -3>
$<i-slide-stack 16 3>
$<push-special 0>
$<branch #<lab: 107>>
$<i-label #<lab: 105>>
$<push-global (list-fns . mapcdr)>
$<push-global (boot . append)>
$<nth-ref 3>
$<nth-ref 2>
$<i-slide-stack 6 3>
$<nth-ref 0>
$<set-nth 4>
$<apply-bvf 2>
$<i-label #<lab: 99>>
$<nth-ref 2>
$<nullp>
$<branch-nil #<lab: 100>>
$<drop 1>
$<i-slide-stack 3 1>
$<return>
$<dead-code>
$<i-label #<lab: 100>>
$<push-static (%%-me-local--%% . afold)>
$<nth-ref 4>
$<nth-ref 4>
$<slot-ref 1>
$<push-label #<lab: 102>>
$<nth-ref 3>
$<nth-ref 8>
$<slot-ref 0>
$<nth-ref 8>
$<nth-ref 2>
$<apply-any 2>
$<i-label #<lab: 102>>
$<nth-ref 3>
$<i-slide-stack 9 4>
$<nth-ref 0>
$<set-nth 5>
$<drop 1>
$<push-special 0>
$<branch #<lab: 99>>
$<i-label #<lab: 94>>
$<nth-ref 1>
$<nullp>
$<branch-nil #<lab: 95>>
$<drop 3>
$<push-special 0>
$<return>
$<dead-code>
$<i-label #<lab: 95>>
$<push-label #<lab: 97>>
$<nth-ref 4>
$<nth-ref 4>
$<slot-ref 0>
$<nth-ref 1>
$<apply-any 1>
$<i-label #<lab: 97>>
$<push-label #<lab: 98>>
$<push-static (%%-me-local--%% . a-mapcar)>
$<nth-ref 6>
$<nth-ref 6>
$<slot-ref 1>
$<push-special 0>
$<branch #<lab: 94>>
$<i-label #<lab: 98>>
$<i-slide-stack 5 2>
$<i-cons>
$<return>
$<i-label #<lab: 89>>
$<push-global (arith . <)>
$<nth-ref 2>
$<push-fixnum 2>
$<push-special 0>
$<i-cons>
$<apply-cfn -2>
$<branch-nil #<lab: 90>>
$<drop 4>
$<push-fixnum 1>
$<return>
$<dead-code>
$<i-label #<lab: 90>>
$<push-global (arith . +)>
$<push-label #<lab: 92>>
$<push-static (%%-me-local--%% . ffib)>
$<push-global (arith . -)>
$<nth-ref 6>
$<push-fixnum 1>
$<push-special 0>
$<i-cons>
$<apply-cfn -2>
$<push-special 0>
$<branch #<lab: 89>>
$<i-label #<lab: 92>>
$<push-label #<lab: 93>>
$<push-static (%%-me-local--%% . ffib)>
$<push-global (arith . -)>
$<nth-ref 9>
$<push-fixnum 2>
$<push-special 0>
$<i-cons>
$<apply-cfn -2>
$<push-special 0>
$<branch #<lab: 89>>
$<i-label #<lab: 93>>
$<i-slide-stack 9 2>
$<push-special 0>
$<apply-cfn -3>
$<return>
$<i-label #<lab: 87>>
$<make-env 1>
$<push-global (arith . -)>
$<nth-ref 2>
$<nth-ref 4>
$<push-special 0>
$<i-cons>
$<apply-cfn -2>
$<nth-ref 3>
$<swap>
$<set-env 0 0>
$<drop 1>
$<nth-ref 0>
$<push-label #<lab: 88>>
$<nth-ref 5>
$<alloc-closure 1>
$<i-slide-stack 7 2>
$<i-cons>
$<return>
$<i-label #<lab: 88>>
$<push-global (arith . +)>
$<nth-ref 1>
$<env-ref 0 0>
$<nth-ref 3>
$<i-slide-stack 5 2>
$<push-special 0>
$<apply-cfn -3>
$<return>
$<i-label #<lab: 84>>
$<nth-ref 2>
$<set-nth 3>
$<drop 1>
$<set-slot 0>
$<return>
$<i-label #<lab: 83>>
$<drop 1>
$<slot-ref 0>
$<return>
$<i-label #<lab: 82>>
$<nth-ref 1>
$<nth-ref 0>
$<set-global (%%-me-local--%% . it)>
$<i-slide-stack 3 1>
$<return>
$<dead-code>
$<i-label #<lab: 59>>
$<push-label #<lab: 62>>
$<push-global (init . =)>
$<nth-ref 4>
$<push-fixnum 0>
$<nth-ref 2>
$<apply-any 2>
$<i-label #<lab: 62>>
$<branch-nil #<lab: 60>>
$<push-global (streams . print)>
$<push-label #<lab: 63>>
$<push-static (%%-me-local--%% . it)>
$<nth-ref 0>
$<apply-any 0>
$<i-label #<lab: 63>>
$<i-slide-stack 4 1>
$<push-special 0>
$<apply-cfn -2>
$<return>
$<i-label #<lab: 60>>
$<push-label #<lab: 66>>
$<push-global (init . =)>
$<nth-ref 4>
$<push-fixnum 1>
$<nth-ref 2>
$<apply-any 2>
$<i-label #<lab: 66>>
$<branch-nil #<lab: 64>>
$<push-global (streams . print)>
$<push-label #<lab: 67>>
$<push-static (%%-me-local--%% . it)>
$<push-fixnum 1>
$<nth-ref 1>
$<apply-any 1>
$<i-label #<lab: 67>>
$<i-slide-stack 4 1>
$<push-special 0>
$<apply-cfn -2>
$<return>
$<i-label #<lab: 64>>
$<push-label #<lab: 70>>
$<push-global (init . =)>
$<nth-ref 4>
$<push-fixnum 2>
$<nth-ref 2>
$<apply-any 2>
$<i-label #<lab: 70>>
$<branch-nil #<lab: 68>>
$<push-global (streams . print)>
$<push-label #<lab: 71>>
$<push-static (%%-me-local--%% . it)>
$<push-fixnum 1>
$<push-fixnum 2>
$<nth-ref 2>
$<apply-any 2>
$<i-label #<lab: 71>>
$<i-slide-stack 4 1>
$<push-special 0>
$<apply-cfn -2>
$<return>
$<i-label #<lab: 68>>
$<push-label #<lab: 74>>
$<push-global (init . =)>
$<nth-ref 4>
$<push-fixnum 3>
$<nth-ref 2>
$<apply-any 2>
$<i-label #<lab: 74>>
$<branch-nil #<lab: 72>>
$<push-global (streams . print)>
$<push-label #<lab: 75>>
$<push-static (%%-me-local--%% . it)>
$<push-fixnum 1>
$<push-fixnum 2>
$<push-fixnum 3>
$<nth-ref 3>
$<apply-any 3>
$<i-label #<lab: 75>>
$<i-slide-stack 4 1>
$<push-special 0>
$<apply-cfn -2>
$<return>
$<i-label #<lab: 72>>
$<push-label #<lab: 78>>
$<push-global (init . =)>
$<nth-ref 4>
$<push-fixnum 4>
$<nth-ref 2>
$<apply-any 2>
$<i-label #<lab: 78>>
$<branch-nil #<lab: 76>>
$<push-global (streams . print)>
$<push-label #<lab: 79>>
$<push-static (%%-me-local--%% . it)>
$<push-fixnum 1>
$<push-fixnum 2>
$<push-fixnum 3>
$<push-fixnum 4>
$<nth-ref 4>
$<apply-any 4>
$<i-label #<lab: 79>>
$<i-slide-stack 4 1>
$<push-special 0>
$<apply-cfn -2>
$<return>
$<i-label #<lab: 76>>
$<drop 2>
$<push-static 4>
$<return>
$<dead-code>
$<i-label #<lab: 58>>
$<drop 1>
$<i-slide-stack 2 1>
$<return>
$<dead-code>
$<i-label #<lab: 57>>
$<drop 1>
$<return>
$<dead-code>
$<i-label #<lab: 55>>
$<make-env 1>
$<nth-ref 1>
$<nth-ref 1>
$<swap>
$<set-env 0 0>
$<drop 1>
$<push-label #<lab: 56>>
$<nth-ref 2>
$<alloc-closure 0>
$<i-slide-stack 3 1>
$<return>
$<dead-code>
$<i-label #<lab: 56>>
$<nth-ref 0>
$<env-ref 0 0>
$<push-global (arith . +)>
$<nth-ref 2>
$<env-ref 0 0>
$<push-fixnum 1>
$<push-special 0>
$<apply-cfn -3>
$<nth-ref 5>
$<nth-ref 1>
$<set-env 0 0>
$<drop 1>
$<drop 1>
$<drop 3>
$<i-slide-stack 2 1>
$<return>
$<dead-code>
$<i-label #<lab: 51>>
$<push-label #<lab: 54>>
$<push-static (%%-me-local--%% . gc-test)>
$<nth-ref 4>
$<push-special 0>
$<branch #<lab: 50>>
$<i-label #<lab: 54>>
$<branch-nil #<lab: 52>>
$<drop 2>
$<push-fixnum 1>
$<return>
$<dead-code>
$<i-label #<lab: 52>>
$<drop 2>
$<push-fixnum 0>
$<return>
$<dead-code>
$<i-label #<lab: 50>>
$<push-global (others . GC)>
$<apply-cfn 0>
$<drop 1>
$<drop 1>
$<return>
$<dead-code>
$<i-label #<lab: 49>>
$<drop 1>
$<push-global (numbers . zerop)>
$<nth-ref 0>
$<set-nth 3>
$<apply-any 1>
$<i-label #<lab: 47>>
$<make-env 1>
$<nth-ref 1>
$<set-env 0 0>
$<push-label #<lab: 48>>
$<nth-ref 2>
$<alloc-closure 1>
$<i-slide-stack 3 1>
$<return>
$<dead-code>
$<i-label #<lab: 48>>
$<nth-ref 1>
$<nth-ref 1>
$<env-ref 0 0>
$<i-slide-stack 4 2>
$<i-cons>
$<return>
$<i-label #<lab: 43>>
$<push-label #<lab: 46>>
$<push-global (numbers . zerop)>
$<nth-ref 4>
$<nth-ref 1>
$<apply-any 1>
$<i-label #<lab: 46>>
$<branch-nil #<lab: 44>>
$<drop 1>
$<push-fixnum 3>
$<push-special 0>
$<apply-cfn -3>
$<return>
$<i-label #<lab: 44>>
$<push-global (arith . -)>
$<nth-ref 2>
$<push-fixnum 1>
$<push-special 0>
$<i-cons>
$<i-slide-stack 5 2>
$<apply-cfn -2>
$<return>
$<i-label #<lab: 39>>
$<push-global (arith . <)> x e <
$<nth-ref 2> x e < x
$<push-fixnum 1> x e < x 1
$<push-special 0> x e < x 1 nil
$<i-cons> x e < x (1)
$<apply-cfn -2>
$<branch-nil #<lab: 40>> x e
$<drop 4>
$<push-fixnum 1>
$<return>
$<dead-code>
$<i-label #<lab: 40>>
$<push-global (arith . *)>
$<nth-ref 2>
$<push-label #<lab: 42>>
$<push-static (%%-me-local--%% . fact)>
$<push-global (arith . -)>
$<nth-ref 4>
$<push-fixnum 1>
$<push-special 0>
$<i-cons>
$<apply-cfn -2>
$<push-special 0>
$<branch #<lab: 39>>
$<i-label #<lab: 42>>
$<i-slide-stack 7 2>
$<push-special 0>
$<apply-cfn -3>
$<return>
$<i-label #<lab: 38>>
$<push-global (arith . +)>
$<nth-ref 2>
$<push-fixnum 1>
$<push-special 0>
$<apply-cfn -3>
$<i-slide-stack 6 1>
$<return>
$<dead-code>
$<i-label #<lab: 34>>
$<push-label #<lab: 37>>
$<push-global (boot . not)>
$<nth-ref 4>
$<nth-ref 1>
$<apply-bvf 1>
$<i-label #<lab: 37>>
$<branch-nil #<lab: 35>>
$<drop 1>
$<return>
$<dead-code>
$<i-label #<lab: 35>>
$<drop 2>
$<push-fixnum 0>
$<return>
$<dead-code>
$<i-label #<lab: 31>>
$<nth-ref 1>
$<branch-nil #<lab: 32>>
$<drop 1>
$<return>
$<dead-code>
$<i-label #<lab: 32>>
$<drop 2>
$<push-fixnum 0>
$<return>
$<dead-code>
$<i-label #<lab: 30>>
$<nth-ref 2>
$<set-nth 3>
$<drop 1>
$<i-cons>
$<return>
$<i-label #<lab: 29>>
$<drop 1>
$<push-static (%%-me-local--%% . i)>
$<nth-ref 0>
$<set-nth 3>
$<drop 1>
$<push-special 0>
$<branch #<lab: 27>>
$<i-label #<lab: 28>>
$<drop 2>
$<push-special 0>
$<return>
$<dead-code>
$<i-label #<lab: 27>>
$<drop 1>
$<return>
$<dead-code>
$<i-label #<lab: 21>>
$<push-global (streams . print)>
$<push-static 3>
$<push-special 0>
$<apply-cfn -2>
$<drop 1>
$<push-label #<lab: 26>>
$<push-special 0>
$<nth-ref 6>
$<push-special 0>
$<branch #<lab: 22>>
$<i-label #<lab: 26>>
$<push-global (streams . print)>
$<nth-ref 1>
$<push-special 0>
$<apply-cfn -2>
$<drop 1>
$<i-slide-stack 7 1>
$<return>
$<dead-code>
$<i-label #<lab: 22>>
$<push-label #<lab: 25>>
$<push-global (init . =)>
$<nth-ref 4>
$<push-fixnum 0>
$<nth-ref 2>
$<apply-any 2>
$<i-label #<lab: 25>>
$<branch-nil #<lab: 23>>
$<drop 2>
$<push-fixnum 1>
$<return>
$<dead-code>
$<i-label #<lab: 23>>
$<push-global (arith . -)>
$<nth-ref 2>
$<push-fixnum 1>
$<push-special 0>
$<i-cons>
$<apply-cfn -2>
$<i-slide-stack 5 1>
$<push-special 0>
$<branch #<lab: 22>>
$<i-label #<lab: 9>>
$<make-env 1>
$<nth-ref 1>
$<set-env 0 0>
$<push-label #<lab: 18>>
$<nth-ref 2>
$<alloc-closure 2>
$<i-slide-stack 3 1>
$<return>
$<dead-code>
$<i-label #<lab: 18>>
$<push-global (streams . print)>
$<push-static 2>
$<push-label #<lab: 19>>
$<push-special 0>
$<nth-ref 5>
$<env-ref 0 0>
$<slot-ref 0>
$<nth-ref 7>
$<nth-ref 7>
$<branch #<lab: 10>>
$<i-label #<lab: 19>>
$<push-label #<lab: 20>>
$<push-global (boot . append)>
$<nth-ref 6>
$<env-ref 0 0>
$<slot-ref 1>
$<push-special 0>
$<nth-ref 2>
$<apply-bvf 2>
$<i-label #<lab: 20>>
$<i-cons>
$<i-cons>
$<i-slide-stack 5 1>
$<push-special 0>
$<apply-cfn -2>
$<return>
$<i-label #<lab: 10>>
$<push-global (streams . print)>
$<nth-ref 3>
$<push-special 0>
$<i-cons>
$<nth-ref 0>
$<nth-ref 4>
$<push-special 0>
$<i-cons>
$<set-slot 1>
$<drop 1>
$<push-special 0>
$<apply-cfn -2>
$<drop 1>
$<nth-ref 4>
$<nullp>
$<branch-nil #<lab: 11>>
$<drop 5>
$<push-special 0>
$<return>
$<dead-code>
$<i-label #<lab: 11>>
$<push-global (others . atom)>
$<nth-ref 5>
$<apply-cfn 1>
$<branch-nil #<lab: 13>>
$<nth-ref 5>
$<push-special 0>
$<i-cons>
$<nth-ref 0>
$<push-static 1>
$<nth-ref 7>
$<i-cons>
$<push-special 0>
$<i-cons>
$<set-slot 1>
$<drop 1>
$<push-special 0>
$<i-cons>
$<i-slide-stack 7 1>
$<return>
$<i-label #<lab: 13>>
$<nth-ref 4>
$<slot-ref 0>
$<push-special 0>
$<i-cons>
$<nth-ref 0>
$<nth-ref 5>
$<slot-ref 0>
$<push-special 0>
$<i-cons>
$<set-slot 1>
$<drop 1>
$<push-label #<lab: 17>>
$<push-special 0>
$<nth-ref 8>
$<slot-ref 1>
$<nth-ref 8>
$<slot-ref 1>
$<nth-ref 8>
$<branch #<lab: 10>>
$<i-label #<lab: 17>>
$<i-slide-stack 7 2>
$<i-cons>
$<return>
$<i-label #<lab: 3>>
$<make-env 1>
$<nth-ref 1>
$<set-env 0 0>
$<push-label #<lab: 8>>
$<nth-ref 2>
$<alloc-closure 0>
$<i-slide-stack 3 1>
$<return>
$<dead-code>
$<i-label #<lab: 8>>
$<nth-ref 0>
$<env-ref 0 0>
$<swap>
$<branch #<lab: 4>>
$<i-label #<lab: 4>>
$<push-label #<lab: 7>>
$<push-global (init . =)>
$<nth-ref 4>
$<push-fixnum 0>
$<nth-ref 2>
$<apply-any 2>
$<i-label #<lab: 7>>
$<branch-nil #<lab: 5>>
$<drop 2>
$<push-fixnum 0>
$<return>
$<dead-code>
$<i-label #<lab: 5>>
$<push-global (streams . print)>
$<nth-ref 2>
$<push-special 0>
$<apply-cfn -2>
$<drop 1>
$<push-global (arith . -)>
$<nth-ref 1>
$<push-fixnum 1>
$<push-special 0>
$<i-cons>
$<apply-cfn -2>
$<set-nth 6>
$<drop 4>
$<branch #<lab: 4>>
$<i-label #<lab: 2>>
$<push-special 0>
$<nth-ref 0>
$<set-global (%%-me-local--%% . xx)>
$<drop 1>
$<push-special 0>
$<nth-ref 0>
$<set-global (%%-me-local--%% . yy)>
$<drop 1>
$<push-special 0>
$<nth-ref 0>
$<set-global (%%-me-local--%% . zz)>
$<drop 1>
$<drop 1>
$<push-static (%%-me-local--%% . xx)>
$<return>
$<dead-code>
$<i-label #<lab: 1>>
$<drop 1>
$<set-slot 4>
$<return>